home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 01.g (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  742b  |  25 lines
  1. 10 rem *******************************
  2. 20 rem *   bildumschreibe-routine    *
  3. 30 rem *                             *
  4. 40 rem *    koala - paint magic      *
  5. 50 rem *                             *
  6. 55 rem *******************************
  7. 60 ifa=1then130
  8. 70 print"[147][158]  bildumschreiberoutine                 [146]"
  9. 80 print"  quelldiskette einlegen , dann bild-     kennziffer eingeben !"
  10. 90 input"";k$
  11. 100 ifk$<"a"ork$>"z"then 50
  12. 110 poke 55,0:poke56,96
  13. 120 a=1:load"?pic "+k$+"*",8,1
  14. 130 :
  15. 140 :
  16. 150 print"  bildumschreiberoutine                 [146]"
  17. 160 print" zieldisk einlegen , dann gewuenschten   namen eingeben !"
  18. 170 input" ";n$
  19. 180 open1,8,1,n$+",p,w"
  20. 190 print#1,chr$(142);chr$(63);
  21. 200 for i=16270to16383:print#1,chr$(0);:next
  22. 210 for i=24576to32767:print#1,chr$(peek(i));:next
  23. 220 for i=32576to33599:print#1,chr$(peek(i));:next
  24. 230 close1
  25.